home *** CD-ROM | disk | FTP | other *** search
/ Workplace Effectiveness: Dealing with Change / Workplace Effectiveness: Dealing with Change.iso / pc / Assess.Dxr / Internal_2_Main navigation buttons.ls < prev    next >
Encoding:
Text File  |  1998-04-24  |  1.2 KB  |  78 lines
  1. global gMasterData
  2.  
  3. on goMain
  4.   leavePart1()
  5.   if iAmActivated(gMasterData) then
  6.     getAllPart1()
  7.   end if
  8.   cursor(4)
  9.   go("start", "Menu")
  10. end
  11.  
  12. on goSubMenu
  13.   case getUserArea(gMasterData) of
  14.     #style:
  15.       exitStyle()
  16.     #styleForm:
  17.       closeTextForm()
  18.   end case
  19.   setUpPart1()
  20. end
  21.  
  22. on goBack
  23.   stopSound2()
  24.   case getUserArea(gMasterData) of
  25.     #styleForm:
  26.       closeTextForm()
  27.       goStyle()
  28.     #history1:
  29.       exitHistory1()
  30.       startHistory()
  31.     #history2:
  32.       exitHistory2()
  33.       goBackTo28()
  34.     #reactions1:
  35.       boardExit()
  36.       startReactions()
  37.     #reactions2:
  38.       reSetCards()
  39.     #resources2:
  40.       clearSliders()
  41.       goPRintro()
  42.     #resources3:
  43.       goBackInPR()
  44.   end case
  45. end
  46.  
  47. on GoOn
  48.   stopSound2()
  49.   case getUserArea(gMasterData) of
  50.     #style:
  51.       exitStyle()
  52.       openTextForm()
  53.     #styleForm:
  54.       closeTextForm()
  55.       setUpPart1()
  56.     #history1:
  57.       setUpHistory()
  58.     #history2:
  59.       exitHistory2()
  60.       setUpPart1()
  61.     #reactions1:
  62.       boardSetup()
  63.     #reactions2:
  64.       boardExit()
  65.       setUpPart1()
  66.     #resources1:
  67.       goPersonal()
  68.     #resources3:
  69.       setUpPart1()
  70.     #fourCorners:
  71.       exitCorners()
  72.   end case
  73. end
  74.  
  75. on notePadButton
  76.   DoNotepad()
  77. end
  78.